home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / oops_js / junk.mod < prev    next >
Text File  |  1990-02-02  |  166b  |  13 lines
  1. MODULE junk; (* program to test oops *)
  2.  
  3.  
  4. VAR junki : INTEGER
  5.     mistake :CHAR;
  6.  
  7. BEGIN
  8.   junki := 23;
  9.   mistake = junki;
  10.   trash := mistake;
  11. END junks.
  12.  
  13.